﻿Public Class clsGtProcedureResultDetails
    Public Function getGtProcedureResultDetailsList(procedure_no As String) As DataTable
        Dim szSql As String = ""
        szSql &= " select * from sf.b_gt_procedure_result_details "
        szSql &= "where validity = ? and procedure_no = ?"
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, "1", procedure_no)
        If IsNothing(dt) Then
            getGtProcedureResultDetailsList = New DataTable
        Else
            getGtProcedureResultDetailsList = dt
        End If
    End Function
End Class
